Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue25/speed/UnitMainForm.dfm/UnitMainForm.txt

Text File | 1997-06-08 | 3.7 KB | 166 lines

object frMainForm: TfrMainForm
  Left = 115
  Top = 90
  Width = 606
  Height = 413
  Caption = 'Speeding Up Client Server'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object DBGrid1: TDBGrid
    Left = 0
    Top = 100
    Width = 598
    Height = 257
    Align = alClient
    DataSource = DataModule2.DataSource1
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 598
    Height = 100
    Align = alTop
    Caption = 'Panel'
    TabOrder = 1
    object laDataSourceState: TLabel
      Left = 246
      Top = 69
      Width = 140
      Height = 20
      Caption = 'laDataSourceState'
    end
    object DBNavigator1: TDBNavigator
      Left = -10
      Top = 69
      Width = 240
      Height = 22
      DataSource = DataModule2.DataSource1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object GroupBoxTDatabase: TGroupBox
      Left = 0
      Top = 0
      Width = 326
      Height = 60
      Caption = 'TDatabase'
      TabOrder = 1
      object buStartTransaction: TButton
        Left = 10
        Top = 20
        Width = 109
        Height = 30
        Caption = 'StartTransaction'
        TabOrder = 0
        OnClick = buStartTransactionClick
      end
      object buCommit: TButton
        Left = 128
        Top = 20
        Width = 92
        Height = 30
        Caption = 'Commit'
        Enabled = False
        TabOrder = 1
        OnClick = buCommitClick
      end
      object buRollback: TButton
        Left = 226
        Top = 20
        Width = 93
        Height = 30
        Caption = 'Rollback'
        Enabled = False
        TabOrder = 2
        OnClick = buRollbackClick
      end
    end
    object GroupBox1: TGroupBox
      Left = 332
      Top = 1
      Width = 265
      Height = 98
      Align = alRight
      Caption = 'Cached Updates'
      TabOrder = 2
      object ChBxCachedUpdates: TCheckBox
        Left = 10
        Top = 20
        Width = 129
        Height = 21
        Caption = 'Cached Updates'
        TabOrder = 0
        OnClick = ChBxCachedUpdatesClick
      end
      object BuCancelUpdates: TButton
        Left = 145
        Top = 59
        Width = 102
        Height = 31
        Caption = 'Cancel Updates'
        Enabled = False
        TabOrder = 1
        OnClick = BuCancelUpdatesClick
      end
      object BuApplyUpdates: TButton
        Left = 145
        Top = 20
        Width = 102
        Height = 30
        Caption = 'Apply Updates'
        Enabled = False
        TabOrder = 2
        OnClick = BuApplyUpdatesClick
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 280
    Top = 8
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
      end
    end
    object OtherOptions1: TMenuItem
      Caption = '&Other Options'
      ShortCut = 0
      object DisplayNetworkUserName1: TMenuItem
        Caption = '&Display Network User Name'
        ShortCut = 0
        OnClick = DisplayNetworkUserName1Click
      end
      object StoredProcedureGet1: TMenuItem
        Caption = 'Stored Procedure: Get Budget Info'
        ShortCut = 0
        OnClick = StoredProcedureGet1Click
      end
      object TwoThreadsForm1: TMenuItem
        Caption = 'Two Threads Form'
        ShortCut = 0
        OnClick = TwoThreadsForm1Click
      end
    end
  end
end